﻿Public Class AgendaEventArgs
    Inherits EventArgs

    Private _rdvCourant As Agendas
    Private _indexCourant As Integer
    Private _tailleAgenda As Integer

    Public Sub New(ByVal rdv As Agendas, ByVal index As Integer, ByVal taille As Integer)
        _rdvCourant = rdv
        _indexCourant = index
        _tailleAgenda = taille
    End Sub

    Public ReadOnly Property tailleAgenda() As Integer
        Get
            Return _tailleAgenda
        End Get
    End Property

    Public ReadOnly Property rdvCourant() As Agendas
        Get
            Return _rdvCourant
        End Get
    End Property

    Public ReadOnly Property indexCourant() As Integer
        Get
            Return _indexCourant
        End Get
    End Property


End Class
